home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1997 April / macformat-049.iso / mac / Demos / Print Artist Demo / PA12-Mac.Dxr / 00066.ls < prev    next >
Encoding:
Text File  |  1996-10-03  |  769 b   |  37 lines
  1. on exitFrame
  2.   global loadNext, whatSpeed, whatFactor, frameLoop
  3.   if frameLoop = 0 then
  4.     unLoad(144, 149)
  5.   end if
  6.   if frameLoop = 0 then
  7.     set whatSpeed to whatSpeed + 60
  8.   end if
  9.   if (ramNeeded(433, 462) < (the freeBlock - 1000)) and (frameLoop = 0) then
  10.     if frameLoop = 0 then
  11.       preLoad(433, 462)
  12.     end if
  13.     set loadNext to 0
  14.     if the timer < whatSpeed then
  15.       set frameLoop to 1
  16.       go(the frame)
  17.     else
  18.       set frameLoop to 0
  19.       resetTimer()
  20.       go(#next)
  21.     end if
  22.   else
  23.     if frameLoop = 0 then
  24.       preLoad(433, 439)
  25.     end if
  26.     set loadNext to 1
  27.     if the timer < whatSpeed then
  28.       set frameLoop to 1
  29.       go(the frame)
  30.     else
  31.       set frameLoop to 0
  32.       resetTimer()
  33.       go(#next)
  34.     end if
  35.   end if
  36. end
  37.